rm(list = ls(all = TRUE))

### PATHS ##############################
dataIn <- "./data"
fileOut <- "./data/combined_matches.csv"
#######################################

out <- data.frame()
for (no.words in seq(10,50,5)) {
    fname <- file.path(dataIn, paste0("matches_DTM_model_22_topics_top_",no.words,"_words.csv"))
    data <- read.csv(fname)
    data$dtm.total.topics <- 22
    data$topwords <- no.words
 
    out <- rbind(out, data)
    }


write.csv(out, file=fileOut, row.names=FALSE)
